home *** CD-ROM | disk | FTP | other *** search
/ Georgia Wildfire Prevention / Georgia Wildfire Prevention.iso / pc / media / dirs / BackUp / Home.dir / 00009_Script_house_objects < prev    next >
Text File  |  2002-10-15  |  1KB  |  63 lines
  1. property myid,is_alternate,change_num,mysprite,spritenum,total_changes,state,orect,mymem,roll
  2.  
  3. on new me
  4.   mysprite=sprite(spritenum)
  5.   change_num=0
  6.   total_change=0
  7.   state=0
  8.   orect=mysprite.rect
  9.   mymem=mysprite.member
  10.   if not(is_alternate) then makeroll(me)
  11. end
  12.  
  13. on beginsprite me
  14.   if is_alternate then 
  15.     mysprite.loch=(-2000)
  16.   end if
  17. end
  18.  
  19. on getpropertydescriptionlist me
  20.   plist=[#myid:[#comment:"My audio response:",#format:#string,#default:""],\
  21.   #is_alternate:[#comment:"Is alternate image for",#format:#boolean,#default:0]]
  22.   return plist
  23. end
  24.  
  25. on mouseenter me
  26.   if not(is_alternate) then
  27.     mysprite.member=roll
  28.     updatestage
  29.   end if
  30. end
  31.  
  32. on mouseleave me
  33.   if not(is_alternate) then
  34.     mysprite.member=mymem
  35.     updatestage
  36.   end if
  37. end
  38.  
  39. on mousedown me
  40.   if not(is_alternate) then
  41.     mysprite.loch=(-2000)
  42.     sendallsprites(#item_changed,myid)
  43.     sendsprite(-5,#item_clicked)
  44.     puppetsound 1,myid
  45.   end if
  46. end
  47.  
  48. on item_changed me,id
  49.   if is_alternate and id=myid then
  50.     mysprite.rect=orect
  51.     updatestage
  52.   end if
  53. end
  54.  
  55. on makeroll me
  56.   temp=image(mymem.width,mymem.height,16)
  57.   temp2=image(mymem.width,mymem.height,16)
  58.   temp.copypixels(member("bgcolor").image,mymem.rect,member("bgcolor").rect)
  59.   temp.copypixels(mymem.image,mymem.rect,mymem.rect,[#ink:36])
  60.   temp2.copypixels(temp,mymem.rect,mymem.rect,[#ink:4])
  61.   roll=new(#bitmap,castlib "scratch")
  62.   roll.image=temp2
  63. end